home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / CLONEDET.ZIP / clone12.txt next >
Text File  |  1996-08-31  |  4KB  |  81 lines
  1. =CloneStopper= ver 1.2 by Poolshark for mIRC 4.6
  2.  
  3. *NOTICE*
  4. This script uses a format, commands, and identifiers that were introduced in mIRC ver 4.52/4.6 - 
  5. It will NOT work in 4.1.
  6.  
  7. Features:
  8. * Clonestopper is a clone monitoring system that will detect non-op clones as they join a channel
  9. * Detects the 1st clone and notifies ops of the clone's nick, the nick of the owner, and site
  10.    and notifies both nicks of clone violation.
  11. * Upon the joining of a second Clone, will notify ops of a muliple clone violation, ban the site
  12.   and kick ALL nicks.
  13. (If you are the only op in a channel, it will skip the /onotice alert and echo to your active window.)
  14.  
  15. Installation Notes:
  16. * CloneStopper uses mIRC's Internal Address List (IAL) to check the address of other people currently
  17.   in the channel, be sure that the IAL is X'd in your remote section or it will not work properly.
  18. * If you are familiar with remote events, feel free to adjust the ON JOIN event to suit your needs,
  19.   ie: If you have changed your default user level to something besides 1, use that. If you already have
  20.   an ON JOIN event for default users, you can simply add | /clonestopper to the end of it etc.. The
  21.   ON JOIN line is only the trigger, the alias is the actual script.
  22. * It will work on multiple channels, but it uses quite a bit of processing power
  23.   especially in busy channels, and may slow down other events depending on the speed of your PC, lag, etc.
  24.  
  25. The Script:
  26. You can copy and paste the following to their respective sections..
  27.  
  28. Event:
  29. +1:ON JOIN:#Yourchannelname:/clonestopper
  30.  
  31. Alias:
  32. clonestopper {
  33.   set %nopnick 0
  34.   set %c 0
  35.   :next
  36.   inc %nopnick 1
  37.   if $nopnick(%nopnick,$chan) == $null goto done
  38.   if $address($nick,3) == $address($nopnick(%nopnick,$chan),3) && $nick != $nopnick(%nopnick,$chan) goto clone
  39.   else goto next
  40.   :clone
  41.   inc %c 1
  42.   set %clone $+ [ %c ] $nopnick(%nopnick,$chan)
  43.   goto next
  44.   :clone1
  45.   if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $nick is a clone of %clone1 - $address($nick,3)
  46.   echo 4 $active = $+ CloneStopper $+ = $nick is a clone of %clone1 - $address($nick,3)
  47.   notice $nick Clones are not allowed in $chan if you have ghost type /msg nickserv ghost nickname <pswd> or message an op
  48.   notice %clone1 Clones are not allowed in $chan if you have ghost type /msg nickserv ghost nickname <pswd> or message an op
  49.   if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $nick and %clone1 have been notified
  50.   echo 4 $active = $+ CloneStopper $+ = $nick and %clone1 have been notified
  51.   goto end
  52.   :clone2
  53.   ban $chan $nick 2
  54.   kick $chan $nick =CloneStopper=
  55.   kick $chan %clone1 =CloneStopper=
  56.   kick $chan %clone2 =CloneStopper=
  57.   if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = Multiple Clones Detected!
  58.   echo 4 $active = $+ CloneStopper $+ = Multiple Clones Detected!
  59.   if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $address($nick,3) Banned and nicks flushed from channel
  60.   echo 4 $active = $+ CloneStopper $+ = $address($nick,3) Banned and nicks flushed from channel
  61.   goto end
  62.   :done
  63.   if %c == 0 goto end
  64.   elseif %c == 1 goto clone1
  65.   else goto clone2
  66.   :end
  67.   unset %clone*
  68.   unset %nopnick
  69.   unset %c
  70.   halt
  71. }
  72.  
  73. Final Notes:
  74. Like all other scripts, this is not supported by #mIRC, If you have any problems/suggestions on using this script please
  75. EMAIL me at turquidi@pacificnet.net or you may be able to track me down at #mIRC DALnet.
  76. I would appreciate it if you wouldn't change the alias, IF you do, don't expect me to troubleshoot it for you, you changed
  77. it, you figure it out <G>
  78.  
  79. Happy clone kicking :)
  80. -Poolshark
  81.